home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FishMarket 1.0
/
FishMarket v1.0.iso
/
fishies
/
201-225
/
disk_222
/
plplot
/
src
/
source.zoo
/
plvsta.c
< prev
next >
Wrap
C/C++ Source or Header
|
1989-05-15
|
920b
|
30 lines
/* Defines a "standard" viewport with seven character heights for */
/* the left margin and four character heights everywhere else */
#include "plplot.h"
void plvsta()
{
float xmin, xmax, ymin, ymax;
float chrdef, chrht, spdxmi, spdxma, spdymi, spdyma;
int level;
glev(&level);
if (level < 1) fatal("Please call PLSTAR before calling PLVSTA.");
gchr(&chrdef,&chrht);
gspd(&spdxmi,&spdxma,&spdymi,&spdyma);
/* Find out position of subpage boundaries in millimetres, reduce by */
/* the desired border, and convert back into normalized subpage */
/* coordinates */
xmin = dcscx(mmdcx(dcmmx(spdxmi) + 7 * chrht));
xmax = dcscx(mmdcx(dcmmx(spdxma) - 4 * chrht));
ymin = dcscy(mmdcy(dcmmy(spdymi) + 4 * chrht));
ymax = dcscy(mmdcy(dcmmy(spdyma) - 4 * chrht));
plvpor(xmin,xmax,ymin,ymax);
}